10 DIM HS$(31)
20 POKE53280,11:POKE53281,0:POKE646,13:PRINT"[147]      FORD PREFECT'S HIGHSCOREMAKER"
30 PRINT"  WRITTEN 1993   PUBLIC DOMAIN SOFTWARE"
40 PRINT"[156] SPIEL : [159]DUOTRIS"
50 PRINT"      [154]        HIGHSCORE:"
60 PRINT"              [183][183][183][183][183][183][183][183][183][183][153]"
70 :
80 : L$=">>>>DUOTRIS-HIGH,P,R"
90 :
100 :  OPEN 1,8,2,L$
110 : GET #1, NO$, NO$
120 :   FOR L=0 TO 31
130 :     FOR R=0 TO 15
140 :     GET #1, BYTE$
150 :     IF BYTE$="" THEN                        POKE 49152+L*16+R,0:GOTO 180
160 :     POKE 49152+L*16+R,ASC(BYTE$)
170 :     HS$(L)=HS$(L)+BYTE$
180 :     NEXTR
190 :   NEXTL
200 : CLOSE 1
210 :
220 : POKE 646,7
230 :
240 : FORL=0TO15
250 :    PRINTL+1,HS$(L)
260 : NEXTL
270 : PRINT"[153] <WEITER MIT SPACE> "
280 : GET A$:IFA$<>" "THEN280
290 :
300 : POKE 646,13
310 :
320 : FORL=16TO31
330 :    PRINTL+1,HS$(L)
340 : NEXTL
350 :
360 : PRINT"[154] WELCHE NUMMER SOLL GEAENDERT WERDEN ?"
370 : PRINT" GIB EIN : 1 - 32 ODER _ ZUM NEUSTART"
380 : PRINT"          -0 ZUM BEENDEN-"
390 : INPUT" >>";A$
400 :  IFA$="_"THEN       RUN
410 :  A=VAL(A$)
420 :  IF A < 0 OR A > 32 THEN                 PRINT"[145]";:GOTO390
430 :  IF A = 0 THEN END
440 :
450 : B= (A-1)
470 :
480 : PRINT"[158] MAX. 16 ZEICHEN !!!":PRINT"  [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
490 : PRINT"[153]  ";HS$(B);"[159]"
500 : INPUT"[145]";B$
510 :
520 : IFLEN(B$)>16THENPRINT"[145]";:GOTO500
530 : IFLEN(B$)<16THENGOSUB700
540 : PRINT"  [158] AENDERUNGEN WERDEN GESPEICHERT !"
545 :
550 : FORL=1TO16
560 :   A=ASC(MID$(B$,L,1))
570 :   POKE49152+B*16+L-1,A
580 : NEXTL
590 :
600 : S$=">>>>DUOTRIS-HIGH,P,W"
610 : OPEN 15,8,15,"S:>>>>DUOTRIS-HIGH":CLOSE15
620 :
630 : OPEN 1,8,2,S$
640 : PRINT#1,CHR$(0);CHR$(101);
650 :   FORL=49152TO49152+511
660 :    PRINT#1,CHR$(PEEK(L));
670 :   NEXTL
680 : CLOSE 1
690 :                            RUN
700 : Y=LEN(B$):FORO=YTO15:B$=B$+CHR$(32):NEXTO:RETURN
705 :
710 : FORD PREFECT'S HIGHSCOREMAKER
720 : HSM-DUOTRIS  (W) 1993 BY
730 :
740 : DANNY BUSCH
750 : BIRKENALLEE 18
760 : 65549 LIMBURG (GERMANY)
770 : TEL.: 06431/25866